*** Table 3 ***
*** angvcon is 1=anger condition and 0=control condition ***
*** hopevcon is 1=hope condition and 0=control condition ***
*** baddata are respondents who failed to follow proper instructions to the emotion induction task ***

*** Table 3 ***

ttest blackdon if baddata~=1, by (angvcon)
ttest blackdon if baddata~=1, by (hopevcon)
ttest maindon if baddata~=1, by (angvcon)
ttest maindon if baddata~=1, by (hopevcon)
ttest bkdonate if baddata~=1, by (angvcon)
ttest bkdonate if baddata~=1, by (hopevcon)


*** Table A2 ***

reg blackdon i.angvcon##i.blackauto3 if baddata~=1
reg maindon i.angvcon##i.blackauto3 if baddata~=1
reg bkdonate i.angvcon##i.blackauto3 if baddata~=1

*** Figures 3 & 4 ***

#delimit ;
set more off;
reg blackdon i.angvcon##i.blackauto3 if baddata~=1;
margins r.angvcon, at(blackauto3=(0(1)2)) ;


#delimit ;
marginsplot, x(blackauto3) bydimension(angvcon, elab( 1 "Anger Condition")) recast(scatter) yline(0) byopt(r(1) title(""))
xtitle("Community Nationalism Scale", size(3) margin(medium)) ytitle("Marginal Effect of Anger Condition on Amount to Black Orgs.", size(3))
xlabel(0 "Low" 1 "Medium" 2 "High", ang(45) labsize(2.5))
ylabel(-5(1)5, axis(1) nogrid labsize(2));


#delimit ;
set more off;
reg bkdonate i.angvcon##i.blackauto3 if baddata~=1;
margins r.angvcon, at(blackauto3=(0(1)2)) ;


#delimit ;
marginsplot, x(blackauto3) bydimension(angvcon, elab( 1 "Anger Condition")) recast(scatter) yline(0) byopt(r(1) title(""))
xtitle("Community Nationalism Scale", size(3) margin(medium)) ytitle("Marginal Effect of Anger Condition on Differnce Black & Main.", size(3))
xlabel(0 "Low" 1 "Medium" 2 "High", ang(45) labsize(2.5))
ylabel(-4(1)4, axis(1) nogrid labsize(2));


